home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / MEDIA / MAIN.DXR / Internal_2_intro score script.ls < prev    next >
Encoding:
Text File  |  1997-10-01  |  844 b   |  30 lines
  1. on exitFrame
  2.   allPupsOn()
  3.   setSpriteCoords(1, 48)
  4.   set the member of sprite 1 to member 20 of castLib "graphics"
  5.   set the loc of sprite 5 to point(320, 240)
  6.   set the member of sprite 40 to member 10 of castLib "internal"
  7.   set the member of sprite 2 to member 21 of castLib "graphics"
  8.   updateStage()
  9.   playVid()
  10. end
  11.  
  12. on playVid
  13.   set the movieRate of sprite 40 to 1
  14.   set the volume of sprite 40 to 200
  15.   repeat while the movieRate of sprite 40
  16.     updateStage()
  17.     if the mouseDown and rollOver(2) then
  18.       cursorSign()
  19.       set the member of sprite 2 to member 22 of castLib "graphics"
  20.       updateStage()
  21.       delay(20)
  22.       set the member of sprite 2 to member 21 of castLib "graphics"
  23.       updateStage()
  24.       exit repeat
  25.     end if
  26.   end repeat
  27.   set the movieRate of sprite 40 to 0
  28.   set the movieTime of sprite 40 to 0
  29. end
  30.